home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_12_Botó print.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  656 b   |  23 lines
  1. on mouseUp
  2.   global sSerie, nOrden
  3.   if rollOver(27) then
  4.     set the member of sprite 27 to member "BtMod_2_A/4" of castLib "elementos graficos"
  5.     puppetSprite(27, 0)
  6.     updateStage()
  7.     printFrom(label(sSerie & nOrden), label(sSerie & nOrden))
  8.     puppetSound(member "record3" of castLib "elementos graficos")
  9.   end if
  10. end
  11.  
  12. on mouseDown
  13.   repeat while the stillDown
  14.     puppetSprite(27, 1)
  15.     if rollOver(27) then
  16.       set the member of sprite 27 to member "BtMod_2_B/4" of castLib "elementos graficos"
  17.     else
  18.       set the member of sprite 27 to member "BtMod_2_A/4" of castLib "elementos graficos"
  19.     end if
  20.     updateStage()
  21.   end repeat
  22. end
  23.